home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
ab20
/
unarced
/
graphics
/
betterthanjpeg
/
decompress.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1995-03-17
|
2KB
|
83 lines
/**************************/
/** REXX:DECOMPRESS.REXX **/
/**************************/
/* BY RICK TILLERY */
/**************************/
/* ------------------------------------ */
/* | THIS SCRIPT RUNS WITH ADPRO 2.0. | */
/* ------------------------------------ */
/* See REXX:COMPRESS.REXX for details */
/* Instructions: 1. Unarc GIF files. */
/* 2. Move input GIF files to a HD partition with at */
/* least WIDTH x HEIGHT x 3 x 2 free bytes (i.e. 768 */
/* x 480 x 3 x 2 = 2,211,840 bytes) */
/* 3. Run ADPro 2.0 */
/* 4. Run this script */
/* 5. Use ADPro requester to give name of RED input file */
/* 6. Use ADPro requester to give name of GREEN input */
/* 7. Use ADPro requester to give name of BLUE input */
/* 8. Use ADPro requester to give name of output file */
/* 9. WAIT - this script with produce an IFF24 file */
/* Portal: RTillery (RTillery@cup.portal.com) */
/* Open port to ADPro - it must be running first */
ADDRESS "ADPro"
/* Turn on results flag to get data FROM ADPro... */
/* ...and set loader/saver formats */
OPTIONS RESULTS
LFORMAT "UNIVERSAL"
SFORMAT "SCULPT"
/* Ask user for red GIF file to load */
LOAD '"' || '"'
LAST_LOADED_IMAGE
FILE = ADPRO_RESULT
/* Get size of input file from ADPro */
XSIZE
WIDTH = ADPRO_RESULT
YSIZE
HEIGHT = ADPRO_RESULT
/* Save the raw image info in three separate red, green and blue files */
SAVE FILE||'1.red' RAW
ADDRESS "COMMAND"
'DELETE' FILE||'1.(GRN|BLU)'
ADDRESS "ADPro"
LOAD '"' || '"'
SAVE FILE||'2.red' RAW
ADDRESS "COMMAND"
'DELETE' FILE||'2.(RED|BLU)'
ADDRESS "ADPro"
LOAD '"' || '"'
SAVE FILE||'3.red' RAW
ADDRESS "COMMAND"
'DELETE' FILE||'3.(RED|GRN)'
'RENAME' FILE||'1.RED' FILE||'.red'
'RENAME' FILE||'2.GRN' FILE||'.grn'
'RENAME' FILE||'3.BLU' FILE||'.blu'
ADDRESS "ADPro"
LFORMAT "SCULPT"
LOAD FILE||'.red' WIDTH HEIGHT COLOR
ADDRESS "COMMAND"
'DELETE' FILE||'.#?'
ADDRESS "ADPro"
SFORMAT "IFF"
SAVE LEFT(FILE,LENGTH(FILE)-8) RAW